home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / ANGELES.CMD next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  162 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡   LA BBS NUMBERS    ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Micro Source         ║"
  39.    MESSAGE "                         ║  2 - IBM PC               ║"
  40.    MESSAGE "                         ║  3 - LA Public Domain     ║"
  41.    MESSAGE "                         ║  4 - Crest BBS            ║"
  42.    MESSAGE "                         ║  5 - West LA PC Store     ║"
  43.    MESSAGE "                         ║  6 - Computer Connection  ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.    LOCATE 17,40
  55.    MESSAGE  " "
  56.    LOCATE 17,40
  57.    GET S5 1
  58.  
  59.    SWITCH S5
  60.  
  61.       CASE "1"
  62.          ASSIGN S3 "Micro Source"
  63.          ASSIGN S4 "3911351"
  64.       ENDCASE
  65.  
  66.       CASE "2"
  67.          ASSIGN S3 "IBM PC"
  68.          ASSIGN S4 "6379229"
  69.       ENDCASE
  70.  
  71.       CASE "3"
  72.          ASSIGN S3 "LA Public Domain"
  73.          ASSIGN S4 "4561121"
  74.       ENDCASE
  75.  
  76.       CASE "4"
  77.          ASSIGN S3 "Crest BBS"
  78.          ASSIGN S4 "4712518"
  79.       ENDCASE
  80.  
  81.       CASE "5"
  82.          ASSIGN S3 "West LA PC Store"
  83.          ASSIGN S4 "5596954"
  84.       ENDCASE
  85.  
  86.      CASE "6"
  87.          ASSIGN S3 "Computer Connection"
  88.          ASSIGN S4 "6571799"
  89.       ENDCASE
  90.  
  91.  
  92.       CASE "M"
  93.          CLEAR
  94.          LOCATE 5,20
  95.          MESSAGE "NUMBER TO DIAL:"
  96.          LOCATE 5,36
  97.          ASSIGN S3 "MANUAL DIAL"
  98.          GET S4
  99.       ENDCASE
  100.  
  101.       CASE "Q"
  102.          CLEAR
  103.          TRANSMIT "!@!"
  104.          WAITFOR "@"
  105.          TRANSMIT "D!"
  106.          WAITFOR "@"
  107.          CLEAR
  108.          LOCATE 1,0
  109.          PAUSE 1
  110.          EXECUTE "INTRO.CMD"
  111.       ENDCASE
  112.  
  113.       DEFAULT
  114.          MESSAGE "^G"
  115.          LOCATE 17,40
  116.          GOTO BEGIN
  117.       ENDCASE
  118.  
  119. ENDSWITCH
  120.       CLEAR
  121.       LOCATE 1,0
  122.       MESSAGE "CONNECTED TO PCP"
  123.       MESSAGE S1
  124.       MESSAGE "DIALING"
  125.       MESSAGE S3
  126.  
  127.  
  128.       TRANSMIT "ATZ!"
  129.       WAITFOR "OK" 10
  130.       TRANSMIT "ATDT"
  131.       TRANSMIT S4
  132.       TRANSMIT "!"
  133.       RGET S0
  134.       RGET S0 80 40
  135.       RGET S0
  136.       PAUSE 2
  137.  
  138.       FIND S0 "BUSY"
  139.       IF FOUND
  140.          CLEAR
  141.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  142.          PAUSE 2
  143.          CLEAR
  144.          LOCATE 1,0
  145.          GOTO BEGIN
  146.       ENDIF
  147.  
  148.       FIND S0 "CONNECT"
  149.       IF FOUND
  150.          SET PARITY NONE
  151.          SET DATABITS 8
  152.       ELSE
  153.          CLEAR
  154.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  155.          PAUSE 2
  156.          CLEAR
  157.          LOCATE 1,0
  158.          GOTO BEGIN
  159.       ENDIF
  160.  
  161.       ALARM 1
  162.       EXIT